home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / TEMPCONV.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  512b  |  20 lines
  1. PROGRAM temperature_conversion;
  2.  
  3. VAR count,centigrade,farenheight : INTEGER;
  4.  
  5. BEGIN
  6.   WRITELN('Centigrade to farenheight temperature table');
  7.   WRITELN;
  8.   FOR count := -2 TO 12 DO
  9.   BEGIN
  10.     centigrade := 10*count;
  11.     farenheight := 32 + centigrade*9 DIV 5;
  12.     WRITE('  C =',centigrade:5);
  13.     WRITE('    F =',farenheight:5);
  14.     IF centigrade = 0 THEN
  15.       WRITE('  Freezing point of water');
  16.     IF centigrade = 100 THEN
  17.       WRITE('  Boiling point of water');
  18.     WRITELN;
  19.   END;
  20. END.